A = Point(xAxis)
B = (0, 4)
C = Intersect(xAxis, yAxis)
d1, c, a, b = Polygon(A, B, C)
Vieleck2, i, j, k, E = Polygon(A, B, 3)
d = Circle(B, A, E)
Vieleck1, f, g, h, D = Polygon(B, C, 3)
e = Circle(C, D, B)
Vieleck4, p, q, r, G = Polygon(C, A, 3)
s = Circle(C, A, G)
F, Fermat_2 = Intersect(s, d)
H, Fermat__innenaufgesetzte = Intersect(d, e)
I, J = Intersect(s, e)
Text2 = LaTeX(Fermat_2, true, true)
K = Intersect(e, g, 2)
L_1 = Intersect(s, d, 1)
l = Segment(K, L_1)
M = Intersect(d, j, 2)
m = Line(M, C)
n = Line(G, B)
Vieleck3, t, f_1, g_1, N = Polygon(B, A, 3)
Vieleck5, h_1, i_1, j_1, O = Polygon(A, C, 3)
Vieleck6, k_1, l_1, m_1, P = Polygon(C, B, 3)
n_1 = Segment(P, A)
p_1 = Segment(N, C)
q_1 = Segment(B, O)
Fermat_1 = Intersect(n_1, p_1)
Text1 = LaTeX(Fermat_1, true, true)
S = Centroid(d1)
M_u = Midpoint(c)
Q = (0, 2)
R = Point(b)
d2, r_1, q_2, m_u = Polygon(Q, M_u, R)
T = (1, 1)
c_1 = Circle(T, 1)
Q' = Dilate(Q, -0.5, S)
U = Dilate(M_u, -0.5, S)
R' = Dilate(R, -0.5, S)
d2', r', q', u = Polygon(Q', U, R')
d_1 = Dilate(c_1, -0.5, S)
e_1 = Circle(Q, M_u, R)
M_F = Midpoint(M_u, C)
M_i = Point(d_1)
Spieker = Dilate(M_i, -0.5, S)
Kiepert__Hype = Conic(B, A, C, Fermat_1, Spieker)
s_1 = OrthogonalLine(C, c)
F_H, W = Intersect(s_1, d1)
L = Midpoint(F_H, C)
M__Brocard = Midpoint(L, M_u)
Brocard = Circle(M__Brocard, M_u)
t_1 = Circle(C, A, B)
c_2 = Mirror(d_1, t_1)
d_2 = Mirror(d_1, t_1)
Brocard' = Mirror(Brocard, t_1)
V = Centroid(Vieleck6)
Z = Centroid(Vieleck3)
A_1 = Centroid(Vieleck5)
a_1 = Segment(V, A)
b_1 = Segment(Z, C)
f_2 = Segment(B, A_1)
Napoleon = Intersect(a_1, b_1)
Vieleck7, g_2, h_2, i_2, B_1 = Polygon(V, A_1, 3)
Text3 = LaTeX(Napoleon, true, true)